home *** CD-ROM | disk | FTP | other *** search
/ Light ROM 1 / LIGHT-ROM 1 (Amiga Library Services)(1994).iso / ffdisks / d963.lha / SIOD / scm / imper.scm < prev    next >
Text File  |  1993-02-22  |  270b  |  12 lines
  1. (define (fib n)
  2.         (do ((a 0 b)
  3.              (b 1 (+ a b))
  4.              (c n (- c 1)))
  5.             ((= c 0) a)))
  6.  
  7. (define (map2 f l)
  8.         (do ((l1 l (cdr l1))
  9.              (l2 '() (cons (f (car l1))
  10.                            l2)))
  11.             ((null? l1) l2)))
  12.